home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u311.dms / in.adf / PowerLOGO / LOGO-Startup < prev    next >
Encoding:
Text File  |  1992-06-27  |  530 b   |  24 lines
  1.  
  2. ;  LOGO-Startup
  3.  
  4. ;  This file loads the files named in the LOGO startup arguments.
  5.  
  6. make "load-arg-files [
  7.    procedure [ [ ] [ ] [ :args :arg :c ] ]
  8.    make "args argslist
  9.    while
  10.    [  make "args bf :args
  11.       not emptyp :args ]
  12.    [  make "arg first :args
  13.       make "c count :arg
  14.       if if >= :c 12
  15.          [  not =   restof - :c 12 :arg   "LOGO-Startup ]
  16.          [  true ]
  17.       [  ( pr "LOADING\ FILE:\ \  :arg )
  18.          load :arg
  19.          pr "LOAD\ COMPLETE ]
  20.       [ ] ]
  21.    erase "load-arg-files ]
  22.  
  23. load-arg-files
  24.